home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_14_1986_Transactor_Publishing.d64 / loan principal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  490b  |  20 lines
  1. 100 rem loan principal
  2. 110 s$="             "
  3. 115 w=10: rem  numeric field width
  4. 120 open 1,3: rem  1,4 for printer
  5. 130 input"annual interest rate   .12[157][157][157][157][157]";i
  6. 140 input"  number of payments   48[157][157][157][157]";n
  7. 150 i=i/12 :rem monthly int
  8. 160 print#1,"interest="i", # payments="n
  9. 170 print#1,chr$(13);"[205]onthly [208]mts   [208]rincipal"
  10. 175 :
  11. 180 for pv=10 to 1000 step 10
  12. 185 rem  calculate loan principal
  13. 190 p=pv*(1-(1+i)^(-n))/i
  14. 195 rem  format 'p'
  15. 200 p$=right$(s$+str$(int(p*100+.5)),w)
  16. 210 print#1,pv,left$(p$,len(p$)-2)"."right$(p$,2)
  17. 220 next pv
  18. 225 :
  19. 230 print#1: close1
  20.